Labels:text | electronics | screenshot | display | software | font | number OCR: system.deskscripts.appsToAppleMenu Step In Out Follow Go Kil Lookup local (appleFolder = file.getSpecialFolderPath ("", "Apple Menu Items", true)) fileloop (f in "", infinity) << scan over all disks, to infinite depth if file.type (f) == 'APPL' .:::. ..... local (name = file.fileFromPath (f)) if dialog.yesNo ("Create alias of "" + name + "" in Apple Menu Items folder?") file.new Alias (f, appleFolder + file.fileFromPath (f) + " alias") User Talk
